inherited dm_receita: Tdm_receita
  OldCreateOrder = True
  Left = 424
  Top = 189
  Height = 408
  Width = 516
  object cdsAuxFormulaItens: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 288
    Top = 128
    Data = {
      E90100009619E0BD02000000180000000E000000000003000000E901184C4947
      5F434F445F50524F4455544F5F53494E4F4E494D4F0400010000000000134C49
      475F434F445F554E49445F4D454449444104000100000000000750524F445554
      4F010049000000010005574944544802000200640007554E4944414445010049
      00000001000557494454480200020064000D554E49444144455F414252455601
      0049000000010005574944544802000200050008504F54454E43494101004900
      00000100055749445448020002000A00024D4501004900000001000557494454
      480200020005000844494C554943414F01004900000001000557494454480200
      020005000A5155414E544944414445120012000000020008444543494D414C53
      0200020008000557494454480200020020000B504552435F44455343544F1200
      12000000020008444543494D414C530200020008000557494454480200020020
      000B56414C4F525F544F54414C120012000000020008444543494D414C530200
      0200080005574944544802000200200009494E564F4C5543524F010049000000
      01000557494454480200020005000A455843495049454E544501004900000001
      0005574944544802000200050009454D42414C4147454D010049000000010005
      57494454480200020005000000}
    object cdsAuxFormulaItensLIG_COD_PRODUTO_SINONIMO: TIntegerField
      FieldName = 'LIG_COD_PRODUTO_SINONIMO'
    end
    object cdsAuxFormulaItensLIG_COD_UNID_MEDIDA: TIntegerField
      FieldName = 'LIG_COD_UNID_MEDIDA'
    end
    object cdsAuxFormulaItensPRODUTO: TStringField
      FieldName = 'PRODUTO'
      Size = 100
    end
    object cdsAuxFormulaItensUNIDADE: TStringField
      FieldName = 'UNIDADE'
      Size = 100
    end
    object cdsAuxFormulaItensUNIDADE_ABREV: TStringField
      FieldName = 'UNIDADE_ABREV'
      Size = 5
    end
    object cdsAuxFormulaItensPOTENCIA: TStringField
      FieldName = 'POTENCIA'
      Size = 10
    end
    object cdsAuxFormulaItensME: TStringField
      FieldName = 'ME'
      Size = 5
    end
    object cdsAuxFormulaItensDILUICAO: TStringField
      FieldName = 'DILUICAO'
      Size = 5
    end
    object cdsAuxFormulaItensQUANTIDADE: TFMTBCDField
      FieldName = 'QUANTIDADE'
      DisplayFormat = ',0.000'
      currency = True
      Size = 8
    end
    object cdsAuxFormulaItensPERC_DESCTO: TFMTBCDField
      FieldName = 'PERC_DESCTO'
      DisplayFormat = ',0.00'
      EditFormat = ',0.00'
      currency = True
      Size = 8
    end
    object cdsAuxFormulaItensVALOR_TOTAL: TFMTBCDField
      FieldName = 'VALOR_TOTAL'
      DisplayFormat = ',0.000'
      currency = True
      Size = 8
    end
    object cdsAuxFormulaItensINVOLUCRO: TStringField
      FieldName = 'INVOLUCRO'
      Size = 5
    end
    object cdsAuxFormulaItensEXCIPIENTE: TStringField
      FieldName = 'EXCIPIENTE'
      Size = 5
    end
    object cdsAuxFormulaItensEMBALAGEM: TStringField
      FieldName = 'EMBALAGEM'
      Size = 5
    end
  end
  object spInserirFormaPosologia: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'COD_FORMA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DESCRICAO'
        ParamType = ptInput
      end>
    SQLConnection = dmGeral.SQLConnectionBD
    StoredProcName = 'FORMA_INSERIR_POSOLOGIA'
    Left = 144
    Top = 216
  end
end
